home *** CD-ROM | disk | FTP | other *** search
/ 1,000+ Great Games / 1_1000 Games.iso / DOSGAMES / CSHEARTS.ZIP / REGISTER.TXT < prev    next >
Encoding:
Text File  |  1995-01-28  |  2.7 KB  |  93 lines
  1. DefInt A-Z
  2. Dim btn#
  3.  
  4. Sub Command1_Click ()
  5.   MousePointer = 11
  6.   On Error GoTo NoFile
  7.   Close #2: Open CSH_Path$ + "CSH_ORD.FRM" For Input As #2
  8.   On Error GoTo NoPrinter
  9.   Printer.Print ""
  10.   On Error GoTo 0
  11.   Do While Not EOF(2)
  12.     Line Input #2, x$
  13.     Printer.Print x$
  14.   Loop
  15.   Printer.EndDoc
  16.   MsgBox "The order form has been sent to Window's to print."
  17.   MousePointer = 0
  18.   Unload Form3
  19.   Exit Sub
  20.  
  21. NoFile:
  22.   x$ = "The file CSH_ORD.FRM was not found. It has a complete order form in it. "
  23.   x$ = x$ + "Instead of the complete form, only ordering information will be printed."
  24.   MousePointer = 0
  25.   MsgBox x$
  26.   Printer.Print "To pay for CardShark Hearts, send $25 plus $4 shipping to"
  27.   Printer.Print "Nelson Ford, P.O.Box 35705, Houston, TX 77235  or call 800-242-4775."
  28.   Printer.Print "All major credit cards accepted. Tech support: 713-524-6394."
  29.   Printer.Print "Specify disk size wanted."
  30.   Unload Form3
  31.   Exit Sub
  32.  
  33. NoPrinter:
  34.   MousePointer = 0
  35.   MsgBox "Printer not ready."
  36.   Exit Sub
  37. End Sub
  38.  
  39. Sub Command2_Click ()
  40.   f$ = CSH_Path$ + "Money2.wav"
  41.   If Dir$(f$) <> "" Then
  42.     Form1.MMControl1.Wait = -1
  43.         Form1.MMControl1.Command = "Close"
  44.         Form1.MMControl1.FileName = f$
  45.         Form1.MMControl1.Command = "Open"
  46.         Form1.MMControl1.Command = "Sound"
  47.     'Do
  48.     '  x = sndPlaySound(f$, 2)
  49.     '  If x = 0 Then z = DoEvents()
  50.     'Loop While x = 0
  51.   End If
  52.   Unload Form3
  53. End Sub
  54.  
  55. Sub Form_Load ()
  56.  
  57. Form3.Left = (Screen.Width - Form3.Width) / 2
  58. Form3.Top = (Screen.Height - Form3.Height) / 2
  59. cr$ = Chr$(13) + Chr$(10)
  60. a$ = "CardShark Hearts is being marketed as shareware." + cr$ + cr$
  61. a$ = a$ + "Any fee that you paid for a disk with this game on it "
  62. a$ = a$ + "or that you paid to download it was for this evaluation "
  63. a$ = a$ + "copy only. No part of that payment went to the author of the program. " + cr$ + cr$
  64. a$ = a$ + "Use of the program beyond a reasonable evaluation "
  65. a$ = a$ + "period requires payment to the author." + cr$ + cr$
  66. b$ = "The purchase price of CardShark Hearts is $25." + cr$
  67. b$ = b$ + "In addition to receiving the latest version, "
  68. b$ = b$ + "you will get the bonus items described in the "
  69. b$ = b$ + "documentation." + cr$ + cr$
  70. b$ = b$ + "To order, call 800-242-4775." + cr$ + "For technical support, call 713-524-6394."
  71. Label1.Caption = a$ + b$
  72. If Rnd > .5 Then
  73.   btn# = Command1.Left
  74.   Command1.Left = Command2.Left
  75.   Command2.Left = btn#
  76. End If
  77. Form3Up = -1
  78. End Sub
  79.  
  80. Sub Form_Paint ()
  81.  
  82. Frame Form3, Label1
  83. Frame Form3, Command1
  84. Frame Form3, Command2
  85. 'If btn# > 0 Then
  86. '  PositionCursor Form3.Command2
  87. 'Else
  88.   PositionCursor Form3.Command1
  89. 'End If
  90.  
  91. End Sub
  92.  
  93.